home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
ASSEMBLE
/
H145.ZIP
/
ASXXXX_4.ZIP
/
T6811L.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-07-18
|
2KB
|
84 lines
.sbttl Assembler Link Tests
.module t6811l
; This file and TCONST.ASM should be assembled and linked.
;
; AS6811 -XGOL T6811L
; AS6811 -XGOL TCONST
;
; ASLINK -C
; -XMS
; T6811L
; TCONST
; -E
;
; The following tests verify the correct processing of
; external references for the direct page, index mode offsets,
; and branches.
;
; *L signifies an error will be reported at link time.
; branch test must be first
.area TEST (ABS,OVR)
.blkb 0x7E ;bra1:
bra bra1 ; 20 00 [20 80]
.blkb 0x7F ;bra2:
bra bra2 ;*L 20 00 [20 7F]
bra bra3 ; 20 00 [20 7F]
.blkb 0x7F
.blkb 0x00 ;bra3:
bra bra4 ;*L 20 00 [20 [80]
.blkb 0x80
.blkb 0x00 ;bra4:
.blkb 0x7E ;bra5:
bra bra5 ; 20 00 [20 80]
.blkb 0x7F ;bra6:
bra bra6 ;*L 20 00 [20 7F]
bra bra7 ; 20 00 [20 7F]
.blkb 0x7F
.blkb 0x00 ;bra7:
bra bra8 ;*L 20 00 [20 [80]
.blkb 0x80
.blkb 0x00 ;bra8:
; direct page test
.area DIRECT (ABS,OVR)
.setdp 0,DIRECT
ldaa *minus1 ;*L 96 00 [96 FF]
ldaa *zero ; 96 00 [96 00]
ldaa *two55 ; 96 00 [96 FF]
ldaa *two56 ;*L 96 00 [96 00]
ldaa *lminus1 ;*L 96 00 [96 FF]
ldaa *lzero ; 96 00 [96 00]
ldaa *ltwo55 ; 96 00 [96 FF]
ldaa *ltwo56 ;*L 96 00 [96 00]
; indexed test
ldaa minus1,x ;*L A6 00 [A6 FF]
ldaa zero,x ; A6 00 [A6 00]
ldaa two55,x ; A6 00 [A6 FF]
ldaa two56,x ;*L A6 00 [A6 00]
; direct page boundary / length checking
.area A
.blkb 1
.area PAGE0 (PAG) ;*L Linker -- page boundary error
.setdp 0,PAGE0 ;*L Linker -- page definition boundary error
.blkb 0x101 ;*L Linker -- page length error